home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / STELNET.ZIP / TERMINAL.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1996-04-01  |  1.6 KB  |  79 lines
  1. unit terminal;
  2.  
  3. interface
  4.  
  5. uses
  6.     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.     StdCtrls, Menus, ExtCtrls,
  8.     ITelnet, Buttons, STelnet;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Panel1: TPanel;
  13.         Bevel1: TBevel;
  14.     MainMenu1: TMainMenu;
  15.     miFile: TMenuItem;
  16.     Exit1: TMenuItem;
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     Button3: TButton;
  20.     MemoNVT1: TMemoNVT;
  21.     ConsoleNVT1: TConsoleNVT;
  22.     TelnetClient1: TTelnetClient;
  23.     Button4: TButton;
  24.     Label1: TLabel;
  25.     Memo1: TMemo;
  26.     AnsiNVTParser1: TAnsiNVTParser;
  27.         procedure FormCreate(Sender: TObject);
  28.     procedure Exit1Click(Sender: TObject);
  29.     procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.         procedure Button3Click(Sender: TObject);
  33.   private
  34.      { Private declarations }
  35.      sockMesNo:    Integer;
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.     Form1: TForm1;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. procedure TForm1.FormCreate(Sender: TObject);
  48. begin
  49.     Width := 574;
  50.     Height := 432;
  51. end;
  52.  
  53. procedure TForm1.Exit1Click(Sender: TObject);
  54. begin
  55.     Close;
  56. end;
  57.  
  58. procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
  59. begin
  60.     ShowMessage('dfgdfgdfg' );{}
  61. end;
  62.  
  63. procedure TForm1.Button1Click(Sender: TObject);
  64. begin
  65.     TelnetClient1.Connect;
  66. end;
  67.  
  68. procedure TForm1.Button2Click(Sender: TObject);
  69. begin
  70.     TelnetClient1.Disconnect;
  71. end;
  72.  
  73. procedure TForm1.Button3Click(Sender: TObject);
  74. begin
  75.     TelnetClient1.SendCommand( tc_AYT );
  76. end;
  77.  
  78. end.
  79.